home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / AVERAGE.BAS next >
BASIC Source File  |  1988-09-10  |  529b  |  19 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' DECLARE FUNCTION Average! (Array() AS SINGLE, First%, Last%)
  3.  
  4. FUNCTION Average (Array() AS SINGLE, First%, Last%) STATIC
  5.  
  6.     Sum = 0                                      'ensure variables
  7.     Average = 0                                  'are zero
  8.   
  9.     FOR i% = First% TO Last%
  10.         Sum = Sum + Array(i%)                     'Sum array
  11.     NEXT i%
  12.   
  13.     Avg = Sum / (Last% - First% + 1)             'Calculate average
  14.  
  15.     Average = Avg                                'Pass back average
  16.  
  17. END FUNCTION
  18.  
  19.